home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Snippets / QuickTime / MCActionProc / mtb2.c < prev    next >
Encoding:
Text File  |  1994-10-28  |  943 b   |  45 lines  |  [TEXT/KAHL]
  1. //    Copyright:    © 1992 by Apple Computer, Inc., all rights reserved.
  2.  
  3. #include "mtb.h"
  4.  
  5. pascal Boolean MyFileFilter(ParmBlkPtr parmBlock ) ;
  6.  
  7. Movie GetMovie (void)
  8. {
  9.     OSErr                         err;
  10.     SFTypeList                     typeList = {MovieFileType,0,0,0};
  11.     StandardFileReply            reply;
  12.     Movie                         aMovie = nil;
  13.     short                         movieResFile;
  14.  
  15.     StandardGetFilePreview (NewFileFilterProc(MyFileFilter), 1, typeList, &reply);
  16.     
  17.     if (reply.sfGood) {
  18.         err = OpenMovieFile (&reply.sfFile, &movieResFile,
  19.                                     fsRdPerm);
  20.         if (err == noErr) {
  21.             short                 movieResID = 0;        // want first movie
  22.             Str255                 movieName;
  23.             Boolean                 wasChanged;
  24.         
  25.             err = NewMovieFromFile (&aMovie, movieResFile,
  26.                                              &movieResID,
  27.                                             movieName, 
  28.                                             newMovieActive,        // flags
  29.                                             &wasChanged);
  30.             CloseMovieFile (movieResFile);
  31.         }
  32.     }
  33.     DoPrerollMovie( aMovie ) ;
  34.     return aMovie;
  35. }
  36.  
  37.  
  38. pascal Boolean MyFileFilter( ParmBlkPtr parmBlock )
  39. {
  40.  
  41.     return false ;
  42.  
  43. }
  44.  
  45.